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EDTSFCOLINC = compute formatted character width 16- Sep-1984 7 VAX-11 Bliss-32 V4.0-7 1 
b-sep-1964 Moe, Pee ewBALSHERS CEB Esher coummc.eu1:4°@ «} 
0 ATITLE ‘EDTSFCOLINC = compute formatted character width’ 
MODULE EDTSFCOLINC ! Compute formatted character width 
: jDENT = 'v04-000' ' File: FCOLINC.BLI Edit: JBS1008 
= 
BEGIN 


_iteuteianae palrpe-sensieerptaberpaty nigppetape rom naseaes 
.* * 
'‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


® 
i 
i 
i 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF He ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
it OTHER PERSON, NO TITLE TO AND OUNERSHIP OF THE SOF TUARE IS HEREBY * 
is TRANSFERRED. ® 
' * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 

® 

* 

a 

% 

*® 

* 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PITITITITILIL ELIT LILI LI LETT TTT i Li iiiiiitiriiitiiiiiiiiiiitiTe 


"FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
Compute formatted character width. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 
MODIFIED BY: 
1-001 = Original. DJS 19-FEB-1981. This module was created by 


extract ing routine EDTSSFMT me {rom module FORMAT. 
ze headers. JBS ‘vs Mar-19 


TS 08-Oct-1981 
; D erio ng: 91S, 08:04 


5 ve 

- Add conditional for v1220 ee JBS 10-Feb-1983 
-007 - Deduce the width of unusual characters from their representation table. 185. 04-Mar-1983 
1-008 - Correct the computation for characters on an 8-bit terminal. JBS 07-Mar-1983 
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XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM ; 


FORWARD ROUTINE 
EDTSSFMT_CHWID; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
LIBRARY ‘EDTSRC:SUPPORTS'; 


LIBRARY "EDTSRC: TRANSLATE’; 


MACROS: 
: NONE 

| EQUATED SYMBOLS: 
NONE 

i OWN STORAGE: 

: NONE 

i EXTERNAL REFERENCES: 
: In the routine 


nN 9 
6-Sep-1984 00:19:37 VAX= 
14- ats 7 ESE DISK 


ee a — a a] 
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SKSVMSMASTER: cE 1 SRC FCOLINC.BLI;1 (2) 


10 
EDTSFCOLINC EDTSFCOLINC = compute formatted character width Bese -1984 00:19:37 VAX-11 Bliss-32 V4.0-74 Page 3) 
Oat 000 EDTSSFMT_CHWID = coneute formatted character w haat 1 90:33 8 NI EKSYMGHASTERSCEOT SRCTFCOLINC.BLI:1 ° (3) | 
3 33 $63 } XSBTTL "EDTSSFMT_CHWID = compute formatted character width’ | 
c: We 665 1 GLOBAL ROUTINE EDTSSFMT_CHWID ( : Compute formatted character width 
; © 008 1 . ! Character whose width to compute 
ies i a 667 1 COLUMN ' Current column (for tabs) 
> «98 0668 1 d= 
; 99 0669 1 
: 100 0670 1 !4+4 | 
: 19) yee} } | FUNCTIONAL DESCRIPTION: | 
$ 108 po58 i | This routine computes the number of character positions a character would 
: 133 Bore } take to display at a specified column. 
3: 106 0676 1 ! FORMAL PARAMETERS: 
: 107 0677 1! 
s 3 pore : CHAR The character to be displayed. 
: 139 set ! COLUMN The starting column. (0 is the first column on a Line) | 
3 6 ee 1 ! IMPLICIT INPUTS: 
3; (11 0683 1! 
s 116 0684 1! EDTS$A_US_TXT 
s 195 0685 1! EDT$$G_EIGHT_BIT 
: 116 0686 1! 
$s 117 0687 1 ! IMPLICIT OUTPUTS: 
; 118 0688 1! 
3: (119 0689 1! NONE 
: 120 0690 1! 
s 121 0691 1 ! ROUTINE VALUE: 
s 22 0692 1! 
3 1s? Booz } The number of chraracter positions the character would occupy. 
5 32s 0695 1 ! SIDE EFFECTS: 
> 126 0696 1! 
. Sar 0697 1! NONE 
s 12 0698 1! 
g 44 0699 1 !-- 
: 130 0700 1 | 
3 131 0701 2 BEGIN 
Ma 14.04 
3: 133 070 EXTERNAL 
s 935 t 0705 ZIF SUPPORT_VT220 
8 136 8708 ZTHEN 
.. 3 70 EDT$$G_EIGHT BIT, ! 1 = this is an eight-bit terminal 
3 138 - 44 wt oe EDT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Table of information about characters 
3 iat U a oF EDTS$B_CHAR_INFO : BLOCKVECTOR (128, 1, BYTE), ! Table of information about characters 
: 146 fat 
3; (146 71 EDTSSA_CHAR_NAMES, ! Names of some characters 
3 1446 714 EDTSS$K_CHAR_ NAMES LEN ! Length of the names table 
> 145 715 EDT$$A_US_TRT : VECTOR; 
; 6146 rig 
: 147 71 LOCAL 
: 148 gris cs 
; 149 71 


SN OOOO eee _ _ a —_ —— — -_ o_— 
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EDTSFCOLINC EDTSFCOLINC = compute formatted character width 8.9 -1984 
4-000 EDTSSFMT_CH f ; 
: 207 777: «5 
; 208 778 2 
: $8 rh a BEG 
: 211 781 6 LEN 
: \§ 7 ¢ REP_ 
: 1 7 END? 
; 14 8! 4 
s 215 785 RETURN 
3 16 0786 4 END; 
Re Mes en 
3 8 8380 
; 220 0790 (3) : 
: $3 0791 RETURN (5); 
, 2 ¢ 0735 S; 
; ge 079 
> 226 0794 END; 
3 dee 0795 TES; 
, £eo 0796 
g dar 0797 «#1 END; 
51 04 AC 
09 51 
10 
7E 00 08 AC 01 
50 50 8E 08 
50 08 50 
0c 51 
i 
50 00000000G 0 
50 60 
53 0000000060041 0 9¢ 
0 0 
004F 000E 000A OO1E 


rea a 


REP_CHAR = CHSRCHAR_A (REP_PTR); 
WHILE ((.REP_CHAR GEQ 


' <Xnn> 


K-11 Bliss-32 v4.0-7 P 
SKSVMSMASTER age si 


%X'20') AND (.REP_CHAR LEQ %X'7E")) DO 


LEN 
HAR Y CWSRCHAR_A (REP_PTR); 


! of routine EDTSSFMT_CHWID 


EDTSFCOLINC EDTSFCOLINC = compute formatted cha 
racter width 


\V04-000\ 

EDTS$G_ EIGHT BIT 

EDT$$B~CHAR_INFO 

EDTS$A~CHAR~NAMES 

EDTSSK_ CHAR” NAMES LEN 

EDT$S$A-US_TRT 

_EDTSCODE,NOWRT, SHR, PIC,2 

EDTSSFMT_CHWID, Save R2,R3 : 0665 

CHAR, C : 0720 

ig rT) : 0730 
COLUMN, al: -(SP) : 0731 

m8.  (SP)44 ; 

#2 : 0733 
EDTS$SA_US_TXT+4, RO : 0739 
(RO), CEN 3 

> 0740 
n. 2, EDTSSB_CHAR_INFOLCI, R3 : 0791 
R35, #0, # $ 
63-3$,- : 
se: : 
755-38 : 
6$ : 
#2, RO : 


4 
ECEDT SRCSFCOLINC.BLI: 1 (3) 
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EDTSFCOLINC EDTSFCO i = compute formatted character width 1 Be. 1984 27 
v04-000 EDTSSFMT_ CHWID = compute formatted character w 14 g-gee =} 1984 9: :2 
90 000000006 00 €9 47 5$: BLBC 
000000A0 F 1 01 4 CMPL 
4 19 BLSS 
50 1 0 6$: MOVL 
4 A RET 
28 000000006 00 9E | 7$: MOVAB 
000000006 00 1 3A 6 LOCC 
. 2 7 BNEQ 
D4 C CLRL 
1 D8 gf 8 $: INCL 
2 3 00 MOVL 
36 1 9A pot? 9 $: MOVZBL 
D1 76 CMPL 
10 19 00079 BLSS 
QOO0007E &F S52 D1 Ba 08 CMPL 
07 14 0008 BGTR 
50 D6 00084 INCL 
EB 11 00086 BRB 
50 05 pbO0 00088 1 MOVL 
04 00088 1 ET 
; Routine Size: 140 bytes, Routine Base: _EDTSCODE + 0000 


0798 #1 
0799 1 !<BLF/PAGE> 


:: 37 VAX-11 Bliss-32 V4.0 Page 
4 DISKSVMSMASTER: CepT. She FCOLINC.BLI;1 


EDT$$G_EIGHT_BIT, 7$ 
#160 


#1, RO 
EDTS$K_CHAR_NAMES_LEN, RO 
Ce RO, EDTSSA_CHAR _NAMES 
R1 

REP_PI PTR 

& 

(REP ave REP_CHAR 
REP_CHAR, #32 

_CHAR, #126 


See 
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6) 
(3) | 


0768 


penery Used: 78 pages 
a 


Compilation Complete 
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EDTSFCOLINC EDTSFCOLINC = compute formatted character width 16-Sep-1984 00:19:37 VAX-11 Bliss-32 V4.0-74 Page 7 
v04-000 EDTSSFMT_CHWID = compute formatted character w 14-Sep-1984 12:23:04 DISKSVMSMASTER: CEDT.SRCJFCOLINC.BLI;1 (4), 
; 231 p800 } END ! of module EDTSFCOLINC ; 
: 538 0802 0 ELUDOM ; 
PSECT SUMMARY | ; 
; Name Bytes Attributes | : 
:  EDTSCODE 140 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 
| ; 
| é 
| * 
; Library Statistics ‘ 
: -------- Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time ; 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 2 0 40 00:00.2 : 
> _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 Oe Ret : 
: ~$299$DUACB: EDT. SRCISUPPORTS.L 5@ 1 2 1 50 5 00:00.1 | : 
: 7$255$DUA28:CEDT.SRCITRANSLATE.L 32; 1 é 0 0 57 00:00.1 | : 
; COMMAND QUALIFIERS | : 
: PLESS/EMECK SCE FELD. INITIAL GPT ERELE) /HOTRACERACE/L 184 1581F COL INC /0B.I 9085517 COL INC MSRC$:FCOLINC.BLI/UPDATE=(ENHS$:F COLINC : 
3 Size: 140 code + 0 data bytes : 
; Run Time: 0:13. . 
; Elapsed Time: 716. : 
3; Lines/CPU Min: 712 : 
3; Lexemes/CPU-Min: 10694 : 


0133 AH-BT13A | | T CORPORATION 
: VAX/VMS_V4.0 | PROPRIETARY 


